home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD011A.D64 / the lovely menu! (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  3.5 KB  |  71 lines
  1. 0 REM       >MENU CREATOR V3.0<
  2. 1 GOSUB400
  3. 2 POKE53265,100:PRINTCHR$(8)
  4. 3 :
  5. 4 SYS65418:K=PEEK(45)+PEEK(46)*256:A=K-1086:P=K-1019:SYSA:T$(0)=",8":T$(1)=",8,1"
  6. 5 LN$="[151]"+LN$+LN$+LN$+LN$:SP$="                ":SP$=SP$+SP$
  7. 6 POKE53280,0:POKE53281,0:Y=1:R$(0)="":R$(1)="[146]":X(0)=2:X(1)=22
  8. 7 PRINT""
  9. 8 READN:N=N-1:DIMS(N),F$(N),T(N),E$(N),C$(N)
  10. 10 FORI=0TON:READS(I),F$(I),T(I),E$(I),C$(I):NEXT
  11. 12 PRINT"[147]";CHR$(9)CHR$(142)CHR$(8):Y=0:SYSP,14,0
  12. 14 SYSP,14,1
  13. 16 SYSP,14,2:MX=15:IFMX>(N-G)THENMX=N-G
  14. 18 SYSP,7,4:R=1:
  15. 19 PRINT"[158]":
  16. 20 PRINT"[145][145][151]           T [207][205][206][208] [207][183][170][207][208][180][180] [170]    "
  17. 21 PRINT"[152]           H [180]  [167] [207] [170][180][170][180][180] [170]    "
  18. 22 PRINT"[155]           E [180]  [167] [204][175][170][180][170][180][205][175][206]    "
  19. 23 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  20. 24 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  21. 25 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][151]"
  22. 26 FORY=0TOMX:GOSUB50:NEXT:Y=0:SYSP,5,22:PRINT"    USE JOYSTICK IN PORT 2"
  23. 27 PRINT"[158]    COMPUTER SCENE [129] P R E S E N T S"
  24. 28 SYSP,1,21:PRINTLN$
  25. 29 I=23:IFN>MXTHENI=24:SYSP,4,23
  26. 30 SYSP,3,I:PRINT" [151] PROGRAMMED BY VINCENZO MAINOLFI ":POKE198,0
  27. 31 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":POKE53265,27
  28. 32 R=(R+1)*-(R<1):GOSUB50:T=0
  29. 34 J2=127-PEEK(56320):T=T+1:IF(J2AND0)ANDT<20THEN34
  30. 36 IF(J2AND2)THENR=1:GOSUB50:Y=Y+1:GOSUB56:GOTO32
  31. 38 IF(J2AND8)ANDY+8<MX+1THENR=1:GOSUB50:Y=Y+8:GOSUB56:GOTO32
  32. 40 IF(J2AND1)THENR=1:GOSUB50:Y=Y-1:GOSUB56:GOTO32
  33. 42 IF(J2AND4)ANDY-8=>0THENR=1:GOSUB50:Y=Y-8:GOSUB56:GOTO32
  34. 44 IFA$="N"THENG=(G+16)*-(G<=N-16):GOTO12
  35. 46 IF(J2AND16)THEN62
  36. 48 GOTO32
  37. 50 RL=Y-(8*-(Y=>8)):SYSP,X(-(Y=>8)),RL+9
  38. 51 PRINTR$(R);LEFT$(F$(Y+G),16)
  39. 52 SYSP,1,20:A$=LEFT$(C$(Y+G),38):A=LEN(A$):B$=LEFT$(SP$,19-A/2)
  40. 54 PRINT"[151][146]";B$;"[159]";A$;"[151]";B$:RETURN
  41. 56 IFY>MXTHENY=0
  42. 58 IFY<0THENY=MX
  43. 60 RETURN
  44. 62 PRINT"[144]":IFS(Y+G)THENSYS52256
  45. 64 PRINT"[147]LOAD";CHR$(34);F$(Y+G);CHR$(34);T$(T(Y+G)):PRINT"";E$(Y+G);CHR$(9);""
  46. 66 POKE631,13:POKE632,13:POKE198,2:END
  47. 68 :
  48. 70 :
  49. 98 REM 0=NO WARP/DRIVE   0= ",8"
  50. 100 DATA 9 :REM NUMBER FILENAMES
  51. 101 DATA 0,"READ ME FIRST !!", 1,"RUN","THE EDITOR LETTING OFF STEAM!!"
  52. 102 DATA 0,"MOOD PRV. V2/[_]", 1,"RUN","V2.0 OF PLAYABLE DOOM STYLE GAME"
  53. 103 DATA 0,"MOOD TITLE  /[_]", 1,"RUN","NICE PICCY AND CLEAR SAMPLE - SMART!"
  54. 104 DATA 0,"MOOD DOCS   /[_]", 1,"RUN","LEARN HOW TO PLAY MOOD"
  55. 105 DATA 0,"COM-FAN DZ ADDY!", 1,"RUN","ADVERTISEMENT FOR COMMODORE FANTASTIC"
  56. 106 DATA 0,"M-LACE EDITOR/XL", 1,"RUN","MULTI-LACE UTILITY FROM XLCUS"
  57. 107 DATA 0,"M-LACE NOTE  /XL", 1,"RUN","INSTRUCTIONS FOR MULTI-LACE UTILITY"
  58. 108 DATA 0,"LIONS 2 /PREVIEW", 1,"RUN","PLAY THEN BUY THIS SMART SHOOTER!"
  59. 109 DATA 0,"K.Y.B.  /PREVIEW", 1,"RUN","PREVIEW OF SUPERB PUZZLE GAME"
  60. 299 :
  61. 300 OPEN1,8,15,"I0":PRINT#1,"S:MENU":CLOSE1:SAVE"MENU",8:VERIFY"MENU",8
  62. 400 PRINT"[147]"
  63. 401 PRINT"        COMMODORE SCENE ISSUE 11"
  64. 402 FORTL=1TO500:NEXT:PRINT
  65. 403 PRINT"        THE BEST PAPER MAGAZINE!"
  66. 404 FORLP=1TO6
  67. 405 FORCL=0TO15
  68. 406 POKE53280,CL
  69. 407 NEXTCL
  70. 408 NEXTLP:RETURN
  71.